1 G=0
2 PRINT"[147]"
10 T$="ABRAHAM SAYS ABRACADABRA BUT NOTHING MOVES AT ALL. "
15 T$=T$+"SO ABRAHAM DECIDES TO FORGET ABOUT THE ABRACADABRA THING AND MOVES "
16 T$=T$+"THE TABLE USING HIS HANDS."
17 REM
18 REM
20 INPUT "SUCHWORT";P$:TS=TI
21 N=LEN(T$)
22 M=LEN(P$)
100 REM NAIVE MATCHER
110 FOR S=1TO N-M
130 IF MID$(P$,1,M)<>MID$(T$,S,M) GOTO 160
150 G=G+1
160 NEXT S
170 PRINT"DER STRING WURDE";G;"MAL GEFUNDEN"
180 PRINTTI-TS